5 REM STEPPING UP OR DOWN
10 POKE53281,1:GOTO 100
20 PRINT"PRESS RETURN"
22 GETA$:IFA$=""THEN22
24 IF ASC(A$)<>13THEN22
26 RETURN
30 POKE W,17:FOR D=1 TO 80:NEXT D:POKE W,0:RETURN
40 POKE W,17:FOR D=1 TO 500:NEXT D:POKE W,0:RETURN
100 PRINT"[147]":PRINTTAB(10)"STEPPING UP OR DOWN"
110 PRINT"YOU WILL SEE TWO NOTES.":PRINT"FROM THE FIRST ONE, DO YOU MOVE UP,"
120 PRINT"MOVE DOWN, OR STAY THE SAME TO PLAY THE SECOND NOTE?"
130 PRINT"PRESS  F1 FOR UP":PRINTTAB(7)"F3 FOR SAME":PRINTTAB(7)"F5 FOR DOWN"
140 L$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
150 FOR I=0TO8:READHF(I),LF(I):NEXT
160 DATA 44,193,42,62,37,162,33,135,31,165,28,49,25,30,22,96,21,31
170 B(1)=135:B(2)=134:B(3)=133
175 POKE 54296,15:V1=54273:V2=54272:W=54276:POKE 54277,64:POKE 54278,128
180 GOSUB20
190 SC=0:FOR T=1 TO 10
200 PRINT"[147][144]":FOR I=1TO5:PRINTL$:NEXT
210 N1=INT(9*RND(0)):P1=1280+N1*40
220 POKE P1,81:POKE P1+54272,2
230 N2=INT(9*RND(0)):P2=1287+N2*40
240 POKE P2,81:POKE P2+54272,2
250 A=SGN(N1-N2)+2:FL=0
260 POKE V1,112:POKE V2,199:GOSUB 30
270 PRINT"F1  UP":PRINT"F3  SAME":PRINT"F5  DOWN"
280 GET A$:IF A$=""THEN 280
290 IF ASC(A$)<133 OR ASC(A$)>135 THEN 280
300 IF ASC(A$)=B(A) THEN 350
310 FL=1:POKE V1,10:POKE V2,143:GOSUB 30
320 POKE V1,8:POKE V2,97:GOSUB 30:GOTO 280
350 POKE V1,HF(N1):POKE V2,LF(N1):GOSUB 40
360 POKE V1,HF(N2):POKE V2,LF(N2):GOSUB 40
370 IF FL=0 THEN SC=SC+1
380 NEXT T
390 PRINT "SCORE = ";SC;"OUT OF 10"
400 PRINT "TRY AGAIN? (Y/N)"
410 GET A$:IF A$="Y" THEN 190
420 IF A$<>"N" THEN 410
430 PRINT"[147]":END